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NML Network message builder module 18-5 =-1984 :58: AX-11 Bliss-32 V4.0-74 P in 
° n 12788-1382 73:28:33 ENML.SRC NMLBLOMSG_B32: nia (1) 


H 1 TITLE ° Lieteare message builder module‘ : 
; ¢ MODULE NMLSBLDMSG ( , 
H LANGUAGE (BLISS32) $ 
3 § ADDRESSING MODE (NONEXTERNAL=GENERAL) , ae : 
3 5 ADDRESSING ree 3 (EXTERNAL=GENERAL), : 
: 8 IDEN = 'v04-000' : 
ie 3 8 1 GEGIN | |i 
: 19 \9 : leueeeaneneeeerennentenstennnereeerersrerecterteeteesrnenentenerentereneesees : 
; Hid * ; 
; \§ o1¢ 1 !* COPYRIGHT (c) 1978, 1980,_1982, “1984 BY * 3 
ee 153 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; i oie : ” ALL RIGHTS RESERVED. * : 
PY . *® - 
3; O01g 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
; iW 017 1 !* ONLY IN ACCORDANCE WITH THE TERM F SUCH LICENSE AND WITH THE * ; 
; 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ‘ 
; 1 4 1 ! ° TRANSFERRED. . ; 
3 : * 3 
; : 8 : 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 4 024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; ? 80 5 : i; CORPORATION. - : 
; 7 00 ; 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 28 0028 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
; 9 Be? 1 !e a 3 
3 0 0030 1 !* * 3 
4 1 itt : laine italiani ita aaalaaiat ina ttaiainiaie e 
3 00 

; § 0088 1 

; 4 0034 1 !++ 

; H B02 ! : FACILITY: DECnet-VAX Network Management Listener 

: 37 037 1! 

; 8 sit 1 ! ABSTRACT: 

: 9 0039 1! 

; 40 0040 1! This module contains routines to build NICE response messages 

; re Obes ’ and miscellaneous routines for debugging. 

: “s Bez ! ; ENVIRONMENT: VAX/VMS Operating System 

: ¢2 Gos ; AUTHOR: Distributed Systems Software Engineering 

; (47 O04? | | CREATION DATE: 28-Jan-1980 

; 48 0048 1! 

: «649 049 1 ! MODIFIED BY: 

: $0 050 1! 

; 6 CD 51 47! vO3-012 MKPO012 Kathy Perko 22-Jan-1984 

: 38 3 1! Convert from old STRNLOG system service to new STRNLNM 

; 34 bez : system service for translating logical names. 

TA. 55 1: v03-011 MKPO011 Kathy Perko 4-Aug-1983 

3; » 2$ 1! Change format of node permanent database to use multiple ISAM 

; 0057 1! keys for better performance. Also, give NML a message file. 


ra 
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NMLSBLOMSG NML Network message builder module 18-56 =1984 23:58:54 AX-11 Bliss-32 V4.0-74 Pa 2 
v04- ° 12-8 08=198e 93:28:34 ENML. SRC NMLBLDMSG.B32; ” (1) 
BR BL 
3 9 3 v03-010 MKP0010 Kathy Perko 11-April-1982 
3 rs bey ! Fix response message length for system messages. 
: 6¢ 066 1 i v03-009 MKP0009 Kathy Perko 9-Nov-1982 
= ber -s Add code to log all NICE messages to NMLSWATCHER 
; 664 1! if the logical name is defined. 
; Ope 1! Add code to NML logging so that any information that is printed 
3 e8 Ope } } which is past the end of the buffer is zeros. 
> 68 068 1: v03-008 WK POOOS Kathy Perko 4=0ct-1982 
: $8 534 1 Add X29 file dump to logging stuff. 
: 71 0071 1! V03-007 MKP0007 kathy Perko 13-July-1982 
; y Bor¢ : Enhance NMLSADDMSGPRA to handle hex image fields. 
. = 0074 1! V03-006 MKP0006 Kathy Perko 10-Jan-1982 
;. © 0075 1! Add a message parene er to NMLSDEBUG_Q10 so | can Label 
5 8 Ber : } what kind of Q10 is getting logged. 
: 78 0078 1: v03-005 MKP000S Kathy Perko 20-Dec-1981 
; 0079 1! Change debup Logging so that it can handle no NFB descriptor 
; 80 0080 1! address. This allows NML to dump just the Q10 status and 
3 Hy bos } I0SB for MOP Q10s. 
; 5 0083 1: v03-004 MKP0004 Kathy Perko 03-Nov-1981 
; 4 0084 1! Add support for secondary (RMS) Lines of message text in a 
; 6285 ef ; NICE reply message. 
: 87 0087 1! v03-003 MKP0003 Kathy Perko 20-Sept-1991 
$ Hey sit : Fix logging so Q10 info is dumped. 
: 0090 1 V03-002 MKP0002 Kathy Perko 26-July-1981 
a 2 | 0091 1! Enhance Logging to dump contents of Q10 buffers, and 
5 4 943 : } ump buffers right to left with ASCII on the right. 
> 94 0094 1! v03-001 MKP0001 Kathy Perko 26-July-1981 
, 0095 1! Fix logging so permanent data bese files aren't 
; | «96 0096 1! opened and closed every time. 
: 97 0097 1 !-- 
; 8 0098 1 
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NMLSBLOMSG NML Network message builder module 15s -1984 23:58: AX-11 Bliss-32 V4.0-74 P 
Vv04- Declarations ° 7 127808= 1382 93:28:93 NML .SRC NALBLDMSG.B32; - (2h 
100 1 ZSBTTL ‘Declarations’ 


oO 


' 
| TABLE OF CONTENTS: 


FORWARD ROUTINE 
NMLSBLD_REPLY, 
NMLSADD-MSG_ TXT, 
NMLSADDASGPRM, 


NMLSADDMSGCOU, 
NMLSERROR_ : NOVALUE, 
NMLSERROR— : NOVALUE, 
NMLSDEBUG_TXT : NOVALUE, 
NMLSDEBUG_MSG NOVALUE, 
NMLSDEBUG- Q1 OVALUE, 
$DUMP_010 BUFS NOVALUE, 
NMLSLOGACLPDB VALUE, 
LEDMP : NOVALUE, 
NMLSLOGF ILEOP : NOVALUE, 
NMLSLOGRECORDOP : NOVALUE, 
NMLSAPPENDTXT : NOVALUE, 

NMLSTRNLOGNUM; 


INCLUDE FILES: 


LIBRARY 'LIB$:NMLLIB.L32° 
LIBRARY ‘SHRLIBS:NMALIBRY 
LIBRARY ‘SYSSLIBRARY:STAR 
’ 
i 
i 


WN — SO OONOAVES WN “OC ODNOAUE WN" OOONOUS WN — 


! EXTERNAL REFERENCES: 


SNML_EXTDEF ; 


Se Se Se Ge Se Be Se Ge Ge Fe Se Ge Se Se Ge Se Fe Se Ge Gs Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SseSe Sets Sse Sess 
cc el ee ee ed ed ed ed ed dd dd wd wd ed 


SELLERS Neen = wt - 4 §OOODOOCOCOO 
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ee ce ce ce ce et cc ee ee ee cD ee cD cD ee cD ee ee ee ee eed ee eed ed 
dd dt wd 2 


BRERA RS FWWWWWIWIIanononononononononn 3 2 OOO 
NOURWN OO OONAUEWN @ODONOULWN OOO NOULWIN (ODD NOOF UN: 


7 
8 EXTERNAL 
9 NML$GQ_PROPRVMSK : BBLOCK (8), ' Process privilege mask 
? NML$GW_WATCHER_CHAN: WORD; ! Channel assigned for NMLSWATCHER. 
§ Te ROUTINE 
LIBSCVT_HTB : ADDRESSING_MODE (GENERAL), 
4 LIBSPUT_OUTPUT : ADDRESSING_MODE (GENERAL), 
5 NMLSCLOSEF ILE, 
6 OPENF is 
H NMASREADREC; 


NMLSBLOMSG NML_ Network message builder module . 
v04- NMLSBLD_REPLY Build NICE response message 4- 
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1 
1 
ZSBTTL "NMLSBLD REPLY Build NICE respons 
GLOBAL ROUTINE AMLSBLD_REPLY (MSGBLK, MSG 
' 


14 
} FUNCTIONAL DESCRIPTION: 


2 

ep-1984 12:50:08  ENML.SRCINALBLDMSC. B32; tenet 
e 
) 


$ 
S$ 
1 message’ 
EN) 


This routine builds a NICE response message based on the 
message segment block. 


FORMAL PARAMETERS: 
MSGBLK Address of the message segment block (MSB). 
MSGLEN Address of longword to return the total size of 
the message that was built. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


NMLSAB_SNDBUFFER contains the NICE reply message built as described in 
the message segment block. 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
The NICE response message is in NMLSAB_SNDBUFFER. 


NOUS WN $9 ODNAUE WN OC OCONOU SW OOM 


BEGIN 
msgblk : REF BBLOCK; 


OCAL 
bufcnt : SIGNED, ! Message length counter 
len : BYTE, ' Temporary s tan Length 
msg_count_ptr, ' Error text length pointer 
in_ptr, ! Input text pointer 
out_ptr; ! Output message pointer 


09.09 09 09 C9 C9 09 09 09 098 SIMI NII NIN NNN AOA OO PUPS E> 
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i The MSB longword mask determines the message fields cher are 
! described in the following longwords. The status code is always 
required. 


bufcnt = 0; ' Initialize buffer count 
out pee = nml$ab_sndbuf fer; ' Get output buffer pointer 
CHSOCHAR_A (,asgbtk msb$b_code], out_ptr); ' Add return code 

bufcnt = .bufcnt + 1; Increment message count 


i Check for detail field. 
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r] 
if msgblk Cmsb$v_det_fld] THEN 
BEGIN 


Move the detail word into the message buffer. 


(.out_ptr)<0,16> = mggbLk Cmsb$w_detail); 
out_ptr = .out_ptr + 2; 


ELSE 
BEGIN 


No detail field is specified so add a minus one to the message. 


(.out_ptr)<0,16> = -1; 
out_p r= -Out_ptr + b; 


bufcnt = .bufcnt + 2: ! Add detail length to count 
Check for message field if there is room in the buffer. 
IF .bufcnt LSS nml$k_sndbflen THEN 
BEGIN 
itialize the message length field to zero. Then save the address 


i In 
! of the count so, if there's more than one message to add, the count 
field can be incremented. 


msg_count_ptr = .out_ptr; 

CHEOCHAR. A’ (0, out_ th): 

bufcnt = pbutens o 13 

IF .msgblk Cmsb$v nsq_fidi THEN 

out_ptr = nmlS$add_msg txt 

(Smsgblk Cmsb$l_text], ! Message code 
bufcnt, ! Bytes left in NCP response msg 
smag_count_ptr, ! Error msg count pointer 
-out_ptr); ! Message end pointer 


ed, then append a CR/LF and the 


f a secondary status message is request 
C text string in the NICE response. 


I es 
second Line of message text to the ASCI 


' 
i 
i 
' 
IF .msgblk Cmsb$v page tid) THEN ! If secondary message supplied, 
out_ptr = nmlSadd_msg_txt 
(cmsgBlk Cmsb$l_text2], 
bufcnt, 


-Msg_count_ptr, 
-out_ptr); 


' Message code 

! Bytes left in NCP response msg 
' Error msg count pointer 

! Message end pointer 

: END; 


If there is room in the buffer check for the entity field. 
if -butent LSS nml$k_sndbflen THEN 


IF .msgblk Eapbsty entd {td} 
AND i, segolk msb$a_entity] NEQA 0) THEN 
' 
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NICE response message 
; Entity field is ASCID string. 


IND 
ent_dsc = msgblk Cmsb$a_entity] : REF DESCRIPTOR; 


in_ptr = sont dae Cdsc$a_pointer]; ! Get gat ity pointer 
len = .ent_dsc dsc$w_length); ! Get Lengt 


If message will not fit in the buffer move the maximum. 


if (.bufcnt + .len) GTR nml$k_sndbflen THEN 
Len = nml$k_sndbflen - .bufcnt; 


i Move the count and the entity string into the buffer and add 
the Length to the total. 


out_ptr = CHSMOVE (.Len, 


-out_ptr); 
pavers = .bufcnt + .len; 


} If there is room in the buffer check for the data field. 
if .bufcnt LSS nml$k_sndbflen THEN 

BEGIN 
IF spogetk Cmsb$v_data_fid 


} 
smsablk Cmsb$a_dafta] NEQA 0) THEN 
BEG] 


Data field is ASCID string. 


BIND 
datadsc = msgblk Cmsb$a_data] : REF DESCRIPTOR; 


in_ptr = .datadsc Cdsc$a_pointer]; ! Get data petater 
Len = .datadsc Cdsc$w_length); ! Get Lengt 


If message will not fit in the buffer move the maximum. 
if <.bufcnt + .Len) LEQ nml$k_sndbflen THEN 
BEGIN 


| Move the data string into the buffer and add length to total. 
out_ptr = ch$move (.Llen, 


-in_ptr, 
-out_ptr); 
bufcnt = .bufcnt + .len; 
END; 
" END; 
len = ,bufcnt; ' Return total message size 


' Return success 
! End of NMLSBLD_REPLY 
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wi, $01 DASE NML Network message builder module 


NML$GQ_ENTSTRDSC 


NM NMV, NMLSAB_PRMSEM 
NALSAB_RE CBUF “NAL SAL PPENTINE TAB 


NAC SAL PERR N 
NML $GB_CMD_VER 


_PST 
R-FORMAT 
L$GB_OPTIONS 


NMLSGL_PRS_FLGS 
ity 


LS$GB_ 
NALS 8 INFO 


NMASR READ 
RST 2 


NMLSBLD_REPLY, ee + R2,R3,R4,R5,R6,R7,RB,RI 


NMLSADD“MSG_TXT 
NMLS$AB_SNDBUFFER, OUT_PTR 


GBLK> 
4(R6), (OUT_PTR)+ 
BUF CNT 


22 
ABC 
wn" 


(3) 
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NM DMSG NML Network message builder module 18- -1984 AX-11 Bliss-32 V4.0-74 p 
voL~000 NMLSBLD_REPLY Build NICE response message 14- eet Fi $3: 33: 33 NML.SRCINMLBLDMSG.B32; ne 
” 88 08 Hs &) zh oO vu Bike) cour PTR) : 
BRB : ; 
60 1 A $ 1$: MNEGW #1, (OUT_PTR) : ; 
E $f zo Merg 36° Bulent” : 
00000200 gt Fo F cut B BUCKY. #512 : 3 
52 MOVL QUT PIR, MSG_COUNT_PTR : : 
i Beis | ie inte" 7 ; 
OD 66 pe F BC (R6), 3$ ; : 
DD cs pusHt Out PTR _PTR : 
08 AE 9F 0004 PUSHAB BUF FENT : : 
0C A6 DD O04A PUSHL 1 (ROD : ; 
69 4 FB 00040 CALLS #4, NN $ADD MSG_TXT : ; 
“s 3 eS iEt4 - BUSHL a3, it : ; 
ee ee a : ; 
10 A6 DD 0005B PUSHL  16(R6) : ; 
69 04 FB 0005E CALLS #4, NMLSADD_MSG_TXT : F 
00000200 8F 6 D1 00061 4$ CMPL  BUFCNT, #512 : ; 
18 00068 BGEQ  6$ : : 
. 6 ow BM BL Bas 4 : : 
2— 13 00071 BEQL $ ; : 
51 14 AB D 00073 MOVL $56R6), R1 : ; 
58 04 Al 00 0007 MOVL 4(R1), IN_PTR : F 
57 1 90 00078 MOVB (R1), LEN : ; 
21 7 9A 0007€ NOVZBL LEN, R1 : ; 
1 E CO 00081 ADDL2 BUFCNT, R1 F : 
00000200 = &F 31 DI 0084 CMPL RI. asi ; 
‘a 9 SRE ox, Ries, Bigot 0. um : ! 
60 68 1 28 0094 MOVC AN. in. PTR), (OUT_PTR) : ; 
29 > BR 0098 MOVEBL tea, our 
6E 1 CO O09 ADDLS BUF CNT : ; 
00000200 8F i D1 QO0Al 68: CPL BUF CNT, #512 ; : 
2F 66 SE OAA BBC #5, (RO), 7% : ; 
ea Hae det gst : : 
1 18 A6 D 83 MOVL 4(R6), : : 
: 04 Al p B MOVE (R1), IN. PTR : ; 
61 BB MOVE (Rl), EN ; ; 
1 7 9A 0008 MOVZBL ; ; 
1 gf co C ADDL Bur éut R1 ; 
00000200 8F ; C4 CMPL Ri, #512 : 
19 4 000¢B BGTR ; 
51 9A ¢ MOV ZBL LEN, R1 ; 930 
60 : D MOVC a (IN_PTR), (OUT_PTR) > 031 
p D4 MOVL. 3. OUT-PTR ; 
A 00007 MOVZBL LEN, RO : 0311 


vorepob NMLSBLD REPLY’ God td NIC ya message 1$-se0-1944 3: 35: 33 NAL SRE Nitec bS¢. 63004 “tne (33 
ADDL2 RO, BUFCNT 


08 ef ee 4 ay 7$: mvt BUFCNI., @MSGLEN me 


; Routine Size: 229 bytes, Routine Base: $CODE$ + 0000 
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74 
message text to NCP respon 14-Sep NML .SRCINMLBLDMSG.B32; 


ZSBTTL "NMLSADD_MSG_TXT Add message text to NCP response’ 
GLOBAL ROUTINE RMLSADD_MSG_TXT (CODE, NICE_BYTES 
MSG_COUNT_PTR, MSG_PTR) = 


le¢ 

' FUNCTIONAL DESCRIPTION: 

! This routine performs a SGETMSG system service to retrieve the 
NML or system message text for the specified status code. 


FORMAL PARAMETERS: 


CODE Message error cote. 
NICE_BYTES Address of bytes in NICE nespones message so far. 
MSG_COUNT_PTR Pointer to message count field (if there's 
more than one message, the count field must include 
all messages.) 
MSG_POINTER Pointer to end of message. 


IMPLICIT OUTPUTS: 
The message text is added to Error Message field of the NCP 
response message. 


BEGIN 


msgbuf : BBLOCK (255); 


LOCAL 

bufdsc : VECTOR (2), 
reslen : WORD, 
crlf; 


butgse £0 


' System message buffer descriptor 
! Length of text 


255; ! Initiaiize buffer descriptor 
msgbut; 


Retrieve the NML or system message text for the specified error code. 


SGETMSG (MSGID = .code, 
GLEN = reslen 
BUFADR = bufdscS: 


If message will not fit in the buffer move the maximum. Just in case 
there is a <CR><LF>, leave room for it. 


F (..nice_bytes + .reslen + 2) GTR nml$k_sndbflen THEN 
reslen = nml$k_sndbflen - ..nice_bytes - 2; 


f there. s already some error text in the message, add a <CR><LF> before 
dding the second error message. 


lf = 0; 
-M™SQ_count_ptr NEQ (.msg_ptr - 1) THEN 
BeeIN. oat 


msg ptr_= CHSMOVE (2, UPLIT BYTE(15, 10), .msg_ptr); 
crl¥ = 2; 


ieee tr oo Oe ee meee 


r 
F 
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75 END; 

5 | Move the error message text into the NCP response message. 
7 msg_ptr = CHSMOVE (.reslen, msgbuf, .msg_ptr); 
0 nice_bytes = nice bytes + .reslen + feat ! Increment buff 
1 (.msg_count_ptr)<0,85 = - Cmsg_count ptr)< ,8> |! Increment ASCI 


-feslen +.crlf; 
RETURN .msg_ptr; ' 
0384 1 END; ! End of NMLSADD_MSG_TXT 


er space used 
C string length 


«PSECT S$PLITS,NOWRT ,NOEXE ,2 
OA OD 00000 P.AAA: .BYTE 13, 10 
«PSECT SOWNS,NOEXE,2 
00000 MSGBUF: .BLKB 255 
~-EXTRN SYSSGETMSG 
-PSECT S$CODES,NOWRT,2 


OOFC 00000 .ENTRY NMLSADD_MSG_TXT, Save R2,R3,R4,R5,R6,R7 
57 00000000' 00 i 90002 ROVAB MSGBUF , ~R7 
SE € C2 0000 SUBL 
04 AE FF 8F 9A 0000C MOVZBL #255, BUFDSC 
08 AE 67 9E 00011 MOVAB  MSGBUF, BUFDSC+4 
7E OF 70 00015 va -(SP) 
oc AE 9F 00018 PUSHAB BUFDS 
€ AE 9F 0001B PUSHAB RESLEN 
04 AC DD OOO1E PUSHL CODE 
000000006 00 05 FB 00021 CALLS @& SYSSGETHSG 
50 6— 3C 00028 MOVZWi. RESLEN, R 
50 08 BC CO 00028 ADDL2 @NICE BYTES, RO 
50 ¢ 00 F ADDL : 
00000200 = &F p 3 CMPL RO. #512 
0 3 00 BLEG 
6E O1FE 8F 08 B¢ a3 00 SUBW3  @NICE_BYTES, #510, RESLEN 
6 D4 00042 1$: CLRL R 
50 10 Ac 01 ¢ 4 SUBL3 #1, MSG_PTR, RO 
50 oc Ac p 49 CMPL msé_COURT PIR, RO 
F 40 BEQL 2 
10 BC 00000000° B 4F MOVW P.AAA, @MSG_PTR 
10 AC C 7 ADDL2 a3. MSG _PTR 
36 p B MOVL. #2. CkL 
10 Bc 6 oF 2$: MOVC3 RESLEN, MSGBUF, @MSG_PTR 
10 A p MOVL R3, MSG_PTR 
bE MOVZWL RESLEN, “RO 
08 BC C A ADDL2 @NICE_BYTES, RO 
08 Bc 6 ADDLS CRLF,~RO, @NICE_BYTES 
0c BC 9A MOVZBL @MSG COUNT_PTR, “RO 
1 F ¢ 7 MOVZWL RESLEN, R1 
: ; 7A ADDL2 Ri, RO 
0c «BC 6 81 00070 ADDBS CRLF, RO, @MSG_COUNT_PTR 
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oe 


*BO0 
; 389 5 1 ZSBTTL "NMLSADDMSGPRM Add data to NICE response message’ 
3 rs § ! GLOBAL ROUTINE NMLSADDMSGPRM (BUFDSC, MSGSIZE, DATAID, DATATYPE, FLDSIZE, FLDADR) = 
; 3g 1 !44 
; ry 3 : } FUNCTIONAL DESCRIPTION: 
3 399 91 1! This routine adds a NICE output parameter to the response message. 
: a8 3 : } The data id, data type, and the value are added. 
: a8 Be : FORMAL PARAMETERS: 
; 4 0 38 1; BUF DSC Address of message buffer Syserspcer. 
; 401 or yt MSGSIZE Address of longword containing current (and 
; 40 0398 1! resulting message size. 
; 40 0399 1! DATAID Parameter code (word value). 
: 406 0400 1! DATATYPE Automatic parsing data type (byte value). 
: 405 0401 1! FLDSIZE Length of data. 
; 406 bcos 1! FLDADR Address of data string. 
; 407 403 1! 
; 408 0406 1 ! IMPLICIT INPUTS: 
; 409 0405 1! 
: 4610 0406 1! NONE 
3 «6411 0407 1! 
; tig 0408 1 ! IMPLICIT OUTPUTS: 
; (41 0409 1! 
; 6414 0410 1! Parameter and descriptive information is in buffer described by 
; 415 0411 1! BUFDSC and the Longword count pointed to by MSGSIZE is incremented 
: 416 Beg 1! by the number of bytes moved. 
; 417 0413 1! 
; 4418 0414 1 ! ROUTINE VALUE: 
3; 419 0415 1 ! COMPLETION CODES: 
; $30 0416 1! 
: 421 0417 1! If the Perses tec will not fit in the buffer then an error 
3; 6 ¢ pois 1; (NML$_STS_SIZ) is returned. Otherwise, success (NML$_STS_SUC) 
3; 6 19 1! is returned. 
: 426 0420 1! 
: 425 0421 1 ! SIDE EFFECTS: 
; 4 $ 04 ; 1! 
3; 4 1! NONE 
:; 428 41! 
: 4629 5 1 !e- 
; 4 04 $ 1 
3 «64431 04 BEGIN 
: 23 159 
; 4 4 MAP 
; 4 430 BUFDSC : REF DESCRIPTOR, 
; 435 1 DATAID : WORD 
: 4 é DATATYPE : BBLOCK (1); 
: 6 LOCAL 
; 439 5 CNT, ' Total parameter data byte count 
3 rr ; PTR; ! Output message pointer 
3 rr 38 Data must fit in buffer. 
7 466 40 CNT = .FLDSIZE + 3; 
; 4445 44) 


NAL Network pecsage builder module 18-sep-1984 $5: 38:3¢ AX-11 Bliss-32 V4.0- Ae 


NMLSADDMSGPRM Ad 


data to NICE response messag 14-Sep-1 NML.SRCINMLBLDMSG.B3 
if -CNT GTRU (.BUFDSC CDSCSW_LENGTH] = ..MSGSIZ=) 

RETURN NMLS_STS_SI7; 
i Move parameter code (id) and data type into buffer. 


PTR = .BUFDSC CDSCSA_POINTER] + ..MSGSIZE; 
os sPTRI< 16> = .DATAID; 


PTR + 
CHSWCHAR. A (.DATATYPE C0,0,8,0], PTR); 


A parameter value is an image field (ASCII or binary) then move the count 
nto the buffer. 


IF a eres ENMASY PTY_CODJ) AND ! Not coded value and 
(DATATYPE CNMASV_P OR ! Ascii or 
«DATATYPE CNMASV_ PTY TYP) EQL NMASC_PTY HI) ! hex image 
BEGIN 
CHSWCHAR_A (.FLDSIZE, PTR); 
vl = .CAT + 1; 


Move the parameter value into the buffer. 


CHSMOVE (.FLDSIZE :FLDADR PTR); 
<MSGSIZE = ..MSGSIZE + .CNT; 
RETURN NML$_STS_SUC 
END; ! End of NMLSADDMSGPRM 
007¢ 99009 ENTRY NL SADDMSGPRN Save R2,R3,R4,R5,R6 
56 146 AC 03 Ci 002 ADDL3 #3 SIZE, CNT 
50 04 Ac pd 000 MOVL au fost 0 
51 60 0008 MOVZ2WL (RO), R1 
31 08 BC C2 000 SUBL2  @MSGSIZE, R1 
1 6 D 01 CMPL  s CNT, R11 
4 1B 0001 BLEQU 
50 8 cE 7 MNEGL #8, RO 
50 04 a0 08 Bc Cl 18 1$ ADDL3 aMsGSIZE 4 (RO) PTR 
pt a a OVW  DATAID, (PTR 
0 10 AC 5 MOVB ATAT VBE, URTRD4 
13 1 9 BLSS 
08 10 ac 6 E0 5 a6, DATATYPE, 2$ 
AC OF 0 i CHPZV * #15, DATATYPE, #32 
80 4 AC OY 2$ MOVB FLDSIZE, (PTR)+ 
56 p C INCL N 
60 18 BC 14 AC e 3$: MOVC3 FLDSIZE, @FLDADR, (PTR) 
0 BC 36 C 4 ADDL2 CNT, @MSGSIZE 
0 1 0 00048 MOVL #1, RO 


ei NAL SASDM GPRM Aad Westn te wlth facpenes messag if: e0- 1984 93; 38: 34 YNML SRC NALBeOMSG. B32; 


04 00048 RET 3 0472 
; Routine Size: 76 bytes, Routine Base: SCODES + 016C 
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; Counters string must fit in the buffer. 

CNT = .FLDSIZE; 

ir (.CNT + 2) GTRU (.BUFDSC CDSC$W_LENGTH] - ..MSGSIZE) 
RETURN NML$_STS_SIZ; 

; Move the counters string. 

PTR = .BUFDSC CDSCSA_POINTER] + ..MSGSIZE; 

CHSMOVE (.FLDSIZE, .FLDADR, .PTR); 

-MSGSIZE = ..MSGSIZE + CNT; 

RETURN NML$_STS_SUC 


END; ! End of NMLSADDMSGCOU 
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NML Network message builder module ise $1984 23:58:54 AX-11 Bliss-32 V4. 
NMLSADDMSGCOU had counter data to NICE respons 12-8ep- 38 43:28:84 ENAL «SRC NMLBLDOMSG 
> 47 “? 1 ZSBTTL att SADORSG OU Add counter data to NICE response eessege | 
; rt 4 yf ! GLOBAL ROUTINE NMLSADDMSGCOU (BUFDSC, MSGSIZE, FLDSIZE, FLDADR) = 
; 4481 ots 1 {44 
; : ¢ of } FUNCTIONAL DESCRIPTION: 
; 4 138 1! This routine moves the counter parameters into the NICE response 
; 485 480 1! message. Since NETACP returns the counters already formatted for 
: rey tt 1} the NICE message, it is just a matter of moving the string in 
3 ret 8 ¢ : } without a parameter type or Length. 
: 489 484 1 ! FORMAL PARAMETERS: 
> $90 485 1! 
>; «491 4 § 4 BUF DSC Address of message buffer descriptor. 
; 49 487 1! MSGSIZE Address of longword containing current (and resulting) 
; 49 0488 1! message Length. 
; 494 0489 1! FLDSIZE Byte count of counters string. 
; 495 0490 1! FLDADR Address of counters string. 
; 496 0491 1! 
; 497 0492 1 ! ROUTINE VALUE: 
: 498 04953 1 ! COMPLETION CODES: 
; 499 0494 1! 
; 500 0495 1! If the counters will not fit in the output message buffer then an 
: 501 0496 1! error (NML$_STS_SIZ) is returned. Otherwise, success (NML$_STS_SUC) 
3 o¢ 0497 1! is returned. 
3; 3 98 1! 
; 504 99 1 !-- 
s 30S 00 1 
; 506 01 BEGIN 
; 30 8 
; 0 MAP 
; . be BUFDSC : REF DESCRIPTOR; 
3 1 06 LOCAL 
: 1 NT, ' Total counter data length 
$ 2 , PTR; ! Output message pointer 
3 3 : 
. : 1 
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ZSBTTL "NMLSERROR_ 1 Signal a single byte status message’ 
GLOBAL ROUTINE NMCSERROR_1 (ERR) : NOVALUE = 


144 
! FUNCTIONAL DESCRIPTION: 


This routine moves an error or status code into the output buffer 
and sends the message with Length of one byte. 


FORMAL PARAMETERS: 

ERR NICE status code to be transmitted (NMASC_STS_xxx). 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
An error message is signalled to be send by the condition handler. 


BEGIN 
(NMLSAB_SNDBUFFER)<0,8> = .ERR; ! Move status code into buffer 
SSIGNAL_MSG (NMLSAB_SNDBUFFER, 1); ! Signal status message 
END; ! End of NMLSERROR_1 
0004 000 -ENTRY NMLSERROR_1, Save Rg 
3§ 000000006 00 3 3 MOVAB NMLSAB_SNDBUFFER, R 
6 06 AC 9 OVB ERR, NALSAB_SNDBUFFER 
DD $0 PUSHL #1 
2 odd F PUSHL R 
01F 90000 F DD 11 PUSHL #53095680 
00000000G 00 3 f if cots #3, LIBSSIGNAL 


31 bytes, Routine Base: S$CODE$S + O1EA 


: Routine Size: 
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gnal an error message with detai 14-Sep-1 NML.SRCJNMLBLDMS 


ZSBTT! "NMLSERROR ; Signgl an error message with detail field’ 
GLOBAL ROUTINE NMCSERROR_2 (ERR, DET) : NOVALUE = 

'e¢ 

' FUNCTIONAL DESCRIPTION: 


This routine moves an error or status code into the output buffer 
followed by the detail word. 


FORMAL PARAMETERS: 


ERR NICE status cote to be transmitted (NMASC_STS_xxx). 
DET NICE error detail code. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
An error message is signalled to be sent by the condition handler. 
BEGIN 
Move the error code and the detail code into the buffer. 


(NMLSAB_SNDBUFFER)<0,8> = ERR; 
(NML$AB~SNDBUFFER + 1)<0,16> = .DET; 


.] 
Signal the message. 
SSIGNAL_MSG (NMLSAB_SNDBUFFER, 3); 


END; ! End of NMLSERROR_2 
coy 0 -ENTRY NMLSERROR 2, Save RE 
52 000000006 00 8 0 MOVAB NMLSAB_SNDBUFFER, R 
é 6 AC 9 MOVB ERR, NALSAB_SNDBUFFER 
01 =A 8 AC B MOV DET, NMLSAB_SNDBUFFER+1 
dD 1 PUSHL @# 
DD 1 PUSHL R 
01F 90000 F DD 16 PUSHL #53095680 


WAL SBLDMSG 


; Routine Size: 


NAL Netw 
NMLSERRO 


36 byte 


Ree "Sonat 


builder module 
an error message 


000000006 00 


Ss, Routine Base: 


vit deuas TacRezel SEG GBB: 


AX-11 
NML.SR 


3) 


03 fe Stee capes #3, LIBSSIGNAL 


SCODES + 0209 


iss-32 V4. 
NMLBLDMSG. 


Babs 


Pose 63 


t 9610 


( 
( 
( 
( 
( 
‘ 
‘ 
‘ 
‘ 
( 
) 
‘ 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
‘ 
‘ 
‘ 
‘ 


3 
NAL MSG NML Network message builder module 1$-se -1984 23:58:54 AX-11 Bliss-32 V4.0-74 Page 21 
NMLSDEBUG_TXT Print text message 127800=1 382 $3:28:3 YNML.SRE NMLBLDOMSG.B32; ° (3) 
$ 6 1 ZSBTTL "NMLSDEBUG_TXT Print text posses. 
: ? , 2 1 GLOBAL ROUTINE NMCSDEBUG_TXT (BITNUM, TXTDSC) : NOVALUE = 
; 6 ¢ 614 1 !4+ 
3 ° Z 91? ! FUNCTIONAL DESCRIPTION: 
: 625 ei$ 1! This routine prints the specified message text to SYSSOUTPUT if 
; ° $ ois : the appropriate logging flags are set. 
H ? : ? Y : FORMAL PARAMETERS: 
; 630 6 1! BITNUM Bit number of the Logging flag. 
: ? 1 $s § ! } TXTDSC Descriptor of ASCII Peat string. 
H e 5 ge 5 } IMPLICIT INPUTS: 
3 ? 5 be ; : NMLSGL_LOGMASK Values of current logging flags. 
3; 637 0629 1 !-- 
: 638 0630 1 
: 639 631 BEGIN 
; 640 6 ; 
; 641 6 MAP 
3 org 0634 TXTDSC : REF DESCRIPTOR; 
; 64 0635 
3 644 06 6 LITERAL 
; 645 06 FAOSIZE = 132; 
3; 646 0638 
3 647 89 9 LOCAL 
: 648 640 FAOPRM, 
: 649 0641 OUTDSC : VECTOR (2) 
; 650 O64¢ FAOBUF : BBLOCK CFAOSIZE); 
: 651 64 
3 626 644 ! 
; $37 Oeee If the correct logging flag is set then output the text string. 
3; 655 IF _.NMLSGL_LOGMASK (.B1 TNUM) 
; 656 48 THEN 
3; 657 49 BEG] 
; 658 50 FAOPRM = .TXTDSC 
; 659 651 OUTDSC £0] = FAOSIZE; 
; 660 25 TOSC C1) = FAOBUF; 
; 661 P 065 SFAOL (CTRSTR = SASCID ('!/eee !aS'), 
: 66¢ P 34 OUTLEN = OUTDSC (03, 
; 66 P 0655 OUTBUF = OUTDSC 
3 664 66 PRMLST = FAOPRMS; 
3; 665 65 LIBSPUT_OUTPUT (OUTDSC); 
: 066 28 ND; 
: 66 65 
; 668 660 1 END; ! End of NMLSDEBUG_TXT 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 
535 41 21 20 2A 2A 2A 2F 21 Hits P.AAC: tt pi fees 'AS\ ; 
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sADDRESS P.AAC 


~EXTRN 


SYSSFAOL 
SCODES ,NOWRT ,2 


wit 2 ets pe TXT, Save nothing 
BITNUA, ern LOGMASK, 1$ 
TXTDSC RM” 

#132, buTbse 
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#1, LIBSPUT_OUTPUT 
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54 
NMLSDEBUG_MSG Print binary message 14-Sep-1 03 NML.SRCJNMLBLDMSG.B32; 


PTR: REF BBLOCK, 


- 
BUFFER_END 
DUMP_BOFFER : 
BBLOCK CDUMP_BUFFER_SIZE); 


index 


Address of end of message buffer. 
Buffer from which the data is dumped. 


e watcher logical name was set, and the information being logged is 
E message, write the NICE message to the watcher's mailbox. 


NUM EQL DBGSC_NETIO AND 
SGU_UATCHER_ CHAN NEQ 0 THEN 
TRWM (WAT ! Don't wait if watcher'’s mailbox is full. 


FLG = 1); 
Ow (FUNC = 10$_WRITEVBLK OR IOSM_NOW, 
,NACSGW WATCHER, CHAN, 


SOONOUESWN Oo 


PMOMOPOPONAYD 2 et — 2 2 ot P} 
con 
wvwvvD 


= 07; ! Do wait for other resources. 


0 
; 670 $ 1 1 ZSBTTL "NMLSDEBUG_MSG Print binary message. 
; 671 § GLOBAL ROUTINE NMCSDE3UG_MSG (BITNUM, BUFFER_ADR 
; 67¢ 663 BUFFER_LEN, TXTDSC) : NOVALUE = 
: 674 0665 1 !++ 
: of? 606 FUNCTIONAL DESCRIPTION: 
; oft eee ; This routine dumps binary messages to SYSS$OUTPUT. 
3 679 0870 FORMAL PARAMETERS: 
: 681 O67 BITNUM Number of the logging flag bit. 
; one 8 : BUF FER_ADR Address of the 4 i buffer. 
; 68 pore ! BUFFER_LEN Length of the message in bytes. 
: oes Ben? TXTDSC Descriptor of text string. 
: 686 O37 { IMPLICIT INPUTS: 
; ons 0879 NML$GL_LOGMASK Values of current logging flags. 
: 690 0681 1 ie 
: 691 et 
F 06 
3: 697 0688 LITERAL 
; 698 0689 FAOSIZ = 256, ! The print buffer. 
3; 699 0690 FAOLST SIZE = 10, ! Size of FAO parameter vector 
; £00 3e3) DUMP_BOFFER_SIZE = 2000; 
: 70 69 LOCAL 
; 70 694 FAOBUF : VECTOR CFAOSIZ, eyrgd.: Print buffer 
3 704 695 FAOLST : VECTOR CFAOLST_SIZEJ, ' List of args to S$FAOL 
s 705 OUTDSC : VECTOR (2), ' Descriptor of the output Line 
: 06 BYTES, ! Counter for bytes written 


SSN 


™w 
QOuFfuwutv— 
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1 

1 
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1 

1 

1 

1 

1 

1 

: 
69 06 BEGIN 
69 0684 
694 0685 MAP 
o2? 04) TXTDSC : REF DESCRIPTOR; 


3 
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3 fer 71 ! 

3 f 5 a If the correct logging flag is not set then just return. 

: 7350 721 IF NOT .NMLSGL_LOGMASK C.BITNUM] THEN 

: f 1 f ¢ ' RETURN; 

; 4 5 8 ¢ If the string length is nonzero then print it. 

s 755 of § IF .TXTDSC NEQA 0 THEN 

. F 7 BEGIN 

; , oF $ OUTDSC [0 FAOSIZ 

; - ‘ 

: 739 Bf ? OUTDSC ab = FAOBUF; 

3: 741 07 § FAOLST [0] = .TXTDSC PoSCou LENGTH: 

; 4g 07 FAOLST [1] = .TXTDSC CDSCSA-POINTERI; 

: ee Bf : FAOLST = ,BUFFER_LEN; 

3; 745 P 0736 SFAOL (CTRSTR = SASCID ("!/ 'AD (Length = !UL bytes)!/'), 
: 746 P 0737 OUTLEN = OUTDSC (0), 

3 747 P 0738 UF = OUTDSC 

; 748 07 9 PRMLST = FAOLSTS; 

3; 749 740 

3; 756 0741 LIBSPUT_OUTPUT (OUTDSC); 

: 751 Lok 

; P36 074 END; 

; 75 0744 ! 

; 754 0745 ! Dumping permanent data base records requires BYPASS privilege because the 
3 Pe? Ores passwords are displayed. 

: 757 0748 if (.BITNUM EQL DBGS$C_FILEIO) 

; 758 0749 AND (NOT .NML$GQ_ PROPRVMSK CPRVS$V -BYPASS)) 

; 759 0750 AND (NOT -NML$GQ~PROPRVMSK CPRVS$V_READALL)) THEN 

; 760 0751 RETURN; 

; 761 B78 

; 76 - 075 § 

3 0754 ! Move the data to be dumped into the dump buffer, filling it with zeros. 
3; 764 755 ! This ensures that any information past the end of the buffer is printed 
; re? 736 as zeros. 

: eee Or 38 CHSCOPY (.BUFFER_LEN, .BUFFER_ADR, 0, DUMP_BUFFER_SIZE, DUMP_BUFFER); 
.- 2 , O76 Dump the buffer contents in hex and ASCII. 

; rt 76 outpsc C1) = FAQBUF; 

: 77 76 PTR = DUMP_BU 

s 7 764 BUFFER. END” = DUMP BUFFER + .BUFFER LEN; 

3 «6774 765 WHILE [PTR LSS .BOFFER_END DO 

3; 77s 768 BEGIN 

3; 77 76 SC 8 = FAQS! 

: 77 768 FAOLST = “PIR 2 ; 

3; 77 7 FAOLST [1] = .PTR 

; 77 770 FAOLST § = [PTR 

: 780 771 FAOLST = ,PTR tt ° 

> 781 77 FAOLST 4) = i6: 

: 7 77 AOLST (5) = .PfR; 

; 7 P 0774 SPADE (CTRSTR = SASCID C°!ML IML EXEL IML t_tAF'), 


<z 


me ee ee ek a a ad ad et td = = = = = = — 2 SS LS SY SY SI SY SS 
i ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


NAL Network message builder module 
NMLSDEBUG_MSG Print binary message 


Add a new Line. 


AS Ly Ly = tt a cris"). 
OUTLEN ¢ C0), 


vvv 


PRMLST = 0); 
LIBSPUT_OUTPUT =O) 


SQN 
Oo 


*] 


6— 65 6C 28 20 20 
73 65 «(7% $5 62 36 


20 4C 58 21 


rn 
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08 


OUTLEN = = cure se (0), 


RMLST = 
LIBSPUT OUTPUT (OU UTDSC): 
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! End of NMLSDEBUG_MSG 


.PSECT S$PLITS,NOWRT,NOEXE,2 
ASCII \!/ !AD (Length = !UL bytes)!/\ 
“LONG 30 
“ADDRESS P.AAE 
eASCIIT N\IXL IXL EXEL IXL !L!AFN 
“LONG 21 
“ADDRESS P.AAG 

ASCII \HA\ 
TON G 
“ADDRESS P.AAI 
.EXTRN SYSSSETRWM, SYSS$QI0W 
.PSECT $CODE$,NOWRT,2 


- ENTRY WAL SDEBUG_ MSG, Save R2,R3,R4,R5,R6,R7,R8,- 


MOVAB NMLSGW_WATCHER_CHAN, R10 
MOVAB SYSSSETRWM, R 

MOVAB LIBS$PUT noufeut RB 

MOVAB FAOL 


V SYSSFA 
MOVAB R 
MOVAB <330¢{sP) 
MOVL 8] TNUM 
BNEQ 
TSTW NAL SGU _WATCHER_CHAN 
BEQL =s«1$ 
PUSHL #1 
CALLS #1, SYSSSETRWM 
CLRO. 0. = ( §P) 
CLRQ  -=(SP) 


MOVO  BUFFER_ADR, -(SP) 
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4 
NAL SG NAL Network message builder module i$-se -1984 23:58:54 AX-11 Bliss-32 V4.0-74 Page 26 
vOLebbo NMLSDEBUG_MSG Print binary message 127808= 1386 $3:28:38 NML.SRCINMLBLDMSG.B32; ‘ 185 | 
7E 7C 0004 CLRQ = = (SP) ; 
7E 04 4 BER ~ : 
7E 70 BF 9A 0004 MOVZBL #1 2 (SP) : | 
7E GA 3¢ 0004 MOVZWL NMLS$GW_WATCHER_CHAN, -(SP) : 
E D4 0004C¢ CLRL = = (SP) : 
000000006 00 g¢ FB 0004 CALLS #12, SYS$Qi0W : 
E D4 CLAL. 0s =( SP + 0716 
69 01 FB CALLS #1, SYSSSETRWM : 
01 000000006 00 2 EO 3A 1$: BBS R2, NMLSGL_LOGMASK, 2$ + 0721 
50 10 aC 09 4 2s: MOVE JATDsc, RO + 0726 
FEDO = CD 0100 Ht C $9 MOVZWL 7356, OUTDSC + 0729 
FEDS = CD FFOO CD 9€ 000 5 VAB_ FAOBUF, OUTDSC+4 : 0730 
FEDS CD 60 07 MOVZWL (RO) LST : 13 
FEDC §= CD 04 AO D ? OVL 4 (ROS, FAOLST+4 : 07 
FEEO CD AC p 008 VL BUFFER_LEN, FAOLST+8 + 0734 
FEDS CD 9F 000 PUSHAB FAOLST + 0739 
FEDO CD OF 008¢ PUSHAB OUTDSC : 
FEDO cD 9F 000 PUSHAB OUTDSC : 
6 DD 00094 PUSHL R6 ; 
67 04 FB 0096 CALLS #4, SYSSFAOL F 
FEDO CD 9F 000 PUSHAB OUTDSC + 0741 
68 1 FB 9090 CALLS #1, LIB$PUT_OUTPUT : 
01 D1 OOOAO 3S: CMPL sR. #1 : 0748 
1 iF OOA BNEG 4$ : 
08 000000006 00 05 £0 000A BBS #3, NML$GQ_PROPRVMSK+3, 4$ : 0749 
7E 000000006 00 03 F| OOAD BBC #3, NMLSGQ-PROPRVMSK+4, 7$ : 0750 
8F 00 08 eC 0c AC 2C 00085 48 MOVCS BUFFER LEN; @BUFFER_ADR, #0, #2000, - : 0758 
6E O0BE DUMP_BOF : 
FEDS = CD FFOO CD 9€ OO0BF MOVAB FAOBUF, OUTDSC+4 : 076 
52 6E 9E 000C6 MOVAB DUMP_BUFFER, PTR : 076 
50 6E 9E 000C9 MOVAB DUMP~BUFFER, RO + 0764 
53 30 0c AC C1 000CC ADDL3 BUFFER_LEN, RO, BUFFER_END : 
5 52 01 00001 58: CMPL PTR, BOFFER_END : 0765 
46 18 00004 BGEQ = 6$ ; 
FEDO CD 0100 8F 3C 00006 MOVZWL #256 TDSC + 0767 
FED8 CD 0C A2 00 000d MOVL  12(PTR), FAOLST : 0768 
FEDC CD 08 A2 00 000E MOVL 8(PTR), FAOLST+4 > 0769 
FEEO CD 04 A2 D OE MOVL 4(PTR); FAOLST+ : 0770 
FEES CD 62 DO OOOEF MOVL (PTR), FAOLST+1 : 0771 
FEES (CD 10 D F4 MOVL #16, FAOLST#1 : 077 
FEEC CD 5 9 MOVL PTR. FAOLST+20 : 077 
FED8 CD 9F OO0F PUSHAB FAOLST : 077 
FEDO CD 9F PUSHAB OUTDSC ; 
FEDO CD 9F 001 SHAB OUTDSC F 
20 A6 9F OO10A PUSHAB P.AAF ; 
67 04 FB 109 CALLS #4, SYSS$FAOL : 
FEDO CD 9F 0011 PUSHAB outpse : 0778 
68 1 FB 00114 CALLS #1, LIBS$PUT_OUTPUT : 
Q ¢ 117 ADDL2 #16, PTR : 0779 
: 11A BRB 5$ : 0765 
E D4 OO1IC 68: CLRL = = (SP) > 0787 
FED CD 9F 0011 PUSHAB OUTDSC ; 
FEDO CD 9F 001 PUSHAB OUTDSC : 
2¢ «=A6 OF 001 PUSHAB P.AAH ; 
67 04 FB 001 CALLS #4, SYSSFAOL : 
| 
a 


wOCBRBS® MIL SSELRTASRUEN Ly aati, NESSES TEES ARTBblatadBte: B38 re 8 
co FOB PL RNR ERS. SY Sfeseur oun i 


; Routine Size: 308 bytes, Routine Base: SCODE$ + 0268 


4 
NMLSBLDMSG NAL Network message builder module bese -1984 58:54 AX-11 Bliss-32 V4.0-74 Page 28 NAL $ 
yOs~000 NMLSDEBUG_Q10 Print NETACP Q10 Secenutten 12-801 884 13:28:03 NHL SREINALBLOMSC. B3e, . av v04- 
; 801 791 1 ZSBTTL "NMLSDEBUG_Q10 Print NETACP Q10 information’ i) 
; 80 7 ; 1 GLOBAL ROUTINE NMCSDEBUG_Q10 (BITNUM 019s 10SB, P1DSC 11 
: 80 793 1 P20S€, PSAOR, P4OSC, TXTDSC) : NOVALUE = 11 
>; 804 794 1 : 11 
; 805 795 1 !+4 731 
: ane £ | : FUNCTIONAL DESCRIPTION: ; i 
: 808 138 1 This routine dumps NETACP Q10 information to SYSSOUTPUT. : i 
; aig 601 | : FORMAL PARAMETERS: : i 
: Bi p 02 1! BITNUM Contains the number of the logging flag bit. : 11 
; B18 808 1 Qos Status of Q10 (RO). —e 211 
: B14 0804 1! 10SB Address of 1/0 status block. Ba 
; 815 0805 1! P1IDSC Address of P1 descriptor. ee. 
: 816 0806 1 / P2DSC Address of Pe descriptor. : 11 
; 817 0807 1: P3ADR Address of P3 word. 21 
: 818 0808 1: P4DSC Address of P4 descriptor. 711 
; 819 Baie 1! TXTDSC Descriptor cf text string. 23) 
; 820 810 1! : 11 
; 821 0811 1°! IMPLICIT INPUTS: 3; 71 
3 Bee 0812 7! 711 
; be 0813 1! NMLSGL_LOGMASK Values of current Logging flags. 23) 
3 B24 0814 1: 211 
; 825 0815 1 i-- 311 
: 826 0816 1 3:71 
; 827 81 BEGIN oe 
; 828 0818 21 
$ 8¢9 0819 2 MAP 211 
; 830 0820 10SB F $10SB 211 
; 831 0821 PIDSC : REF DESCRIPTOR i} 
; b3¢ 08 : P2DSC EF DESCRIPTOR, 21 
: 83 08 P4DSC F DESCRIPTOR: 211 
3; 834 OBge 211 
3; 835 825 2 BIND 21 
:; 8 P 0826 FAOSTR = SASCID ("!/RO=!XL IOSB=!XL/'XL NFB=!XW/!XL", 211 
: 837 0827 "U/PQ=iMW/IXL PS=IKL C1KW) PO=!KW/!IKL"); ee 
; 839 829 2 LITERAL 211 
; Bee H 0 FAOSIZ = 256; ! The print buffer : 1 
; Bie 8 é LOCAL 211 
3; 84 08 FAOBUF : VECTOR FAQSIZ, BYTE], ! Print buffer 211 
: Bad 4 FAOLST : VECTOR H i List of args to $FAOL 3:1 
> 845 5 OUTDSC : VECTOR (2), i Descriptor of the output Line ee 
; B46 BUF SIZ; 3H 
; Bc8 ; 3 | If the correct logging flag is not enabled then just return. 711 
: 656 0 IF NOT .NMLSGL_LOGMASK (.B1] TNUM) 
an tt , § EN crunn 
8 ar 
3 32 5 : Print header message at beginning of Q10 information. 
: 33 Be iF .TXTDSC NEQ 0 THEN 


& 
NA MSG NML Network message builder module 1b-se 1984 58:54 Ax-11 iss-32 V4.0-74 P 9 
VoLe8b0 NMLSDEBUG_Q10 Print NETACP Q10 information 127808-1 382 13:38:03 ENMU. SRE NALBLOMSG.932¢4 a9 493 


’ 


858 r NMLSDEBUG_TXT (.BITNUM, .TXTDSC); 

60 OUTDSC fo} = FAOSIZ; 

61 QUTDSe = FAOBUF: 
bes i Log the Q10 completion status, IO0SB, and the values of the Q10 
HG ¢ parameters. 
866 $ FAOLST [0] = .Q10S; 

6 FAOLST (1) = .10SB £0.0.32.0): 
te FAOLST £2) = .10SB [4,0,32.0]: 

0 6 IF .PIDSC NEQA O THEN 
871 1 BEGIN 
87 6¢ FAOLST £33 = .PIDSC oSCSW_LENGTH] 

7 6 FAOLST [4] = .P1DSC CDSCSA~POINTER; 
874 64 END 
He bbee ELSE GIN 
877 086 FAOLST (33 = 0; 

78 0868 FAOLST [4] = 0: 
ad Be bo 
881 bars IF .P2DSC NEQA 0 
SB $B78 = BEGIN 
884 0874 
BBS ee: FAOLST [5] = .P2DSC CDSC$W LENGTH]; 
886 087% FAOLST C6] = .P2DSC CDSCSA_POINTER); 
887 08/ 
888 0 28 END 
889 087 ELSE 
eae me 
89 OB8¢ FAOLST £53 = 0; 
893 O85 FAOLST (£6) = 0: 
895 bbas END; 
B38 thd FAOLST [7] = .P3ADR; 
898 dass IF -P3ADR NEQA 0 
$80 B90 FAOLST (8) = .(.P3ADR)<0,16> 
$02 83 ss FAOLST (8) = 0; 
90 9 ote 
904 94 2 IF .P4DSC NEQA 0 
905 95 2 THEN 
906 % BEGIN 
908 9 FAOLST [9] = .P4DSC CDSC$W_LENGTH); 
909 3 FAOLST ate = .P4DSC POSCSK POINTER): 
318 5 BEGIN 
914 4 

| 
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4 
NML Network message builder 1%. -Sep-1 4 AX-11 iss-3 -74 
NMLSDEBUG_Q10 Print NETACP 010 O atormation 14- Sep- 38 3: 38: 33 NMLLSRE NALBCOMSG B3oe4 
905 FAOLST P33 ,*.° 
FAOLST 110) 6; 
END; 


$FAOL (CTRSTR = FAOSTR 
OUTLEN = OUfDSC 
DUTBUF = OUTDSC 
PRMLST = FAOLSTS; 
LIBSPUT_OUTPUT (OUTDSC); ! Write to SYSSOUTPUT 
OUTDSC CO 
OUTDSC € ff i: = Faoeur 
BUFSIZ = FAOSIZ 
IF NOT .Q10S 
NMLSADD_MSG_TXT (.Q10S, BUFSIZ, OUTDSC [0], .OUTDSC (1)) 
NMLSADD_MSG_TXT (. 5958 C1OS$W_STATUS), 
OUTDSC CO) 
-OUTDSC (14); 
LIBSPUT_OUTPUT (OUTDSC); ! Write to SYSSOUTPUT 


Dump the contents of the NFB, the P2 (Key) buffer, and the P4 (Value) buffer. 
NMLSDUMP_Q10_BUFS (.BITNUM, .PIDSC, .P2DSC, .P4DSC, .P3ADR); 
END; ! End of NMLSDEBUG_QI10 


-PSECT S$PLITS,NOWRT,NOEXE,2 


20 4C 58 21 3D 30 52 2F 21 0068 P.AAK: ASCII \!/RO=!XL 1OSB=!XL/!XL NFB=!XW/!XL!/P2=!X\ 
He Ge gg ie oe aiey 
% 33 20 4c 58 31 ef 5 0090 SASCII \W/!XL P3=!XL CIXW) PG=!XW/EXL\ 
8 21 3 34 50 20 29 57 58 O09F aes 
90000045 o080 P.AAJ: .LONG 69 
00° 60084 “ADDRESS P.AAK 
FAOSTR= P.AAJ 
.PSECT S$CODE$,NOWRT,2 
007¢ 000 .ENTRY MMLSDEBUG_Q10 Saye R2,R3,R4,R5,R6 
Se ooops ae ge Busse ABE LARRY OOgput 
01 000000006 6 04 AC i at BBS BITNUM, fe So _LOGMASK, 1$ 
20 D5 00018 TST TXTDSC 


, 


ee me ee a ce ee a ee eth ee ee ee a ee ce ee ee ee ee ee ee ee ee ee ee a ee ee ee ce ee ee ee ee ee ee ed ed eed eed 
*~ of OA OA Om 2A OA OA OO OO OIA ER ARIA IR IAIRIARIAIRIAIAIAIAIA IA IAI DP DP DP DP DP. OA OM OM OM Be ct ck lt lt tk kk kk 


Be Se Se Se ee Se Se Se Se Be Se Se Se Se Ge Se Se Ge Ge Ge Ge Ge Be Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Se Oe Se Se Se Se Se Se Se ee Fe Se Se tease teas 


! | 
EScpcHOHt GHESRSSE  WAMCTAPNAta Badd: B304F Poe af} 


wt SBLDISG NML Network message builder module 1 
v04- NMLSDEBUG_Q10 Print NETACP Q10 information 1 
0B 13 00018 BEQL 2s : 
20 AC DD 0001 PUSHL TXTDSC + 0848 
4 AC DD PUSHL BI TNUM : 
FE66 OCF 0 Q CALLS #2, NMLSDEBUG_TXT : 
4 AE 0100 BF 3¢ 28: MOVZWL #256, OUTDSC ; 0850 
8 AE ¢ AE MOVAB. FAOBUF, OUTDSC+4 : 851 
C AE AC D MOVL 10S, FAOLST : 56 
5 ¢ ag p MOVL 1088, RS + 085 
10 AE 6 ¢ MOVG  (R5). FAOLST+4 : 
54 10 ac D 4 MOVL PDS, R4& + 0860 
08 | 44 BEQL 3$ F 
18 AE 64 f 46 MOVZWL (R4) FAOLST +12 : 86 
1¢ AE 06 Ad OD 4A OVL  4(R4S, FAOLST+16 : 086 
03 11 0004F BRB 4$ : 0860 
18 AE 7? 0 1 3$: CLROQ AOL ST+12 ; 4 
53 14 aC p , 4$: OVE peDsc, R : 0871 
20 AE 6 Hi ie MOVZ2WL (R3), FAOLST+20 + 0875 
24 «AE 04 Ad Dd 905 MOVL  4(R35, FAOLST+24 : 0876 
03 11 0006 BRB ry} ; 0871 
20 AE 7C 00065 S$: CLRQ = FAOLST+20 F 0882 
28 «AE 18 «OA 06 068 6$: MOVL P3ADR, FAOLST+28 : 088 
07 13 00060 BEQL : 0888 
2c OA 18 BC 3C 0006F MOVZWL @P3ADR, FACLST+32 : 0890 
11 99 4 BRB : 
2c «AE OG 0076 7$: CLRL = FAOLST+3 + 0892 
52 1¢ «=A 09 9007 8$: MOVL  P4DSC, R + 0894 
0B 13 0007D BEQL 6-9 ; 
30 AE 62 3C 00075 MOVZWL (R2), FAOLST+36 + 0898 
4 AE 04 A2 dO 00083 MOVL  4(R25, FAOLST#+40 : 0899 
03 11 00088 BRB 10$ > 0894 
30 AE 7C OOOBA 9 CLRQ  FAOLST+36 > 0905 
OC AE OOF 9080 10$ PUSHAB FAOLST : 0913 
08 AE OF 6 30 PUSHAB OUTDSC : 
0c E 9F 0009 PUSHAB OUTDSC : 
00000000" 00 9F 00096 PUSHAB FAOSTR ; 
000000006 00 FB d09¢ CALLS #4, SYSSFAOL ; 
04 AE 9F OOOA PUSHAB out SC : 0915 
56 01 FB OAb CALLS #1, LIBS$PUT_OUTPUT ; 
4 AE D4 OOOA CLRL DS : 0917 
08 AE C AE 9E OOOAC MOVAB PAQBUF OUTDSC+4 : 0918 
6E 01 8F ¢ 081 MOVZWL #256, BUFSIZ : 0919 
OE AC E B6 BLBS 0s > 0922 
AE DD OOOBA PUSHL  OUTDSC+4 ; 
AE 9F 0008 PUSHAB OUTDSC : 
AE 9F 000C PUSHAB BUFSIZ ; 
AC Dd 000C PUSHL 198 ; 
oc 11 ¢ BRB 1 ; 
AE DD 000C8 11%:  PUSHL OUTDSC+4 + 0927 
AE 9F 000CB PUSHAB OUTDSC + 0926 
AE F cE PUSHAB BUFSIZ > 0924 
7E C 0000 MOVZWL (RS), -(SP) F 
FC6OD =sCCF 4 FB 00004 128: ALLS #4, NMLSADD_MSG_TXT ; 
04 AE 9F 00009 PUSHAB OUfDSC + 0929 
56 01 FB 000DC CALLS #1, LIBSPUT_OUTPUT : 
18 AC dD OO0DF PUSHL P3ADR + 0934 
52 DD 000E2 PUSHL R : 


Wal SBLBMSG 


; Routine Size: 


NALSDEBUG GIO’ Pr tnt NETAEP iti nformation 


243 bytes, 
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4 
VOU=000” = NALSDEBUGLUIO' Print NETACP O10 infornat on bat 1982 12:50:03 ENML-SRCINALALMSG-032; 00" 6435 


Ss 
ion 


; 94 g 3 
: 94 us 1 XSBTTL "NMLSDUMP aj0 BUFS Dump G10 be ffer 31 
; 320 | GLOBAL ROUTINE NALSDOMP_Q10_BUFS (BITNUM, Sipsc. upedsce P4DSC, P3ADR) : : } 
P = » 
; 9 1 3) 
: 9 5 BEGIN 31 
: 954 3 3 7 
; 955 944 2 LOCAL 31 
: 9 6 945 P4LEN; ! Length of P4 buffer : 1 
; 9 946 31 
; 958 94 MAP 37 
; 959 948 PIDSC : REF DESCRIPTOR, 31 
: 960 94 P2DSC =: REF DESCRIPTOR, 31 
; 361 990 P4DSC =: REF DESCRIPTOR: : } 
3 308 0384 IF .P1DSC NEQ 0 THEN 31 
; 964 099 NMLSDEBUG_MSG ( .BITNUM 1 
: 965 954 -PIDSC EDSCSA_POINTER), : 1 
> 966 0995 “PIDSC CDSCSW7LENGTHJ, :] 
3; 967 956 SASCID('P1 buffer contents')); : 1 
; 968 0957 313 
: 969 0958 -P2DSC NEQ 0 313 
: 970 0959 : 13 
3 971 0960 NMLSDEBUG_MSG ( .BITNUM 313 
; are 0961 Peps EDscga_ POINTER], 3 13 
: 97 096¢ -P2DSC DSCSU-LENG 313 
> 974 096 $ASCID ('P2 buffer contents')): 3 3 
: 975 0964 :1 
: 976 0965 IF .P4DSC NEQ 0 3:13 
; 9 0966 THE 3 13 
: 096 BEGIN 3 335 
3; 979 0968 3 43 
; 980 0969 Figure out how much of the P4 buffer to dump. If it's a 3 13 
: 981 0970 i show, the byte count was returned in P3. If it's a set, 233 
; 4 997) 1 the byte count is in the P4 buffer , he EL, : \ 
: 984 097 ir .P3ADR NEQ 0 THEN ¢ 13 
; 985 0974 IF .(,P3ADR)<0,16> GTR NMLSK_QIOBFLEN THEN 313 
; 986 975 P4LEN = 64 3 3 
: 987 97 LSE 31 
: 988 97 P4LEN = .(.P3ADR)<0,16> 37 
: 989 978 3 33 
> 990 979 4LEN = .P4DSC CDSC$W_LENGTH); : 1 
3; 991 980 NMLSDEBUG _MSG ( BI TNUM 31 
; 99 1 P4DSC EDSCSA_POINTER), .% 
; 99 1 -P4LEN, 3% 
3 99% 9 gasciD’ ("P4 buffer contents')); e7 
; 995 984 be i; 
; 0985 ! of NMLSDUMP_Q10_BUFS at 
. 13 
3 1 
.PSECT $PLITS,NOWRT ,NOEXE ,2 at 
65 74 6€ 6F 63 20 72 65 66 66 75 62 $9 3 2 20 aoc? P.AAM: .ASCII \P1 buffer contents\ : ‘ 1 
: ® 33 
CA -BLKB 2 s 3 


NAL MSG NML Network message builder module 
vad tii NALSDUNE 210 "BUFS” Dump Q10 buffers 


65 74 6€ 6F 63 20 72 65 66 66 75 62 89 oS 
mon 


4 6€ 


0000006" 


65 74 6& 6F 63 20 72 65 66 66 75 62 ail 


000C 90000 
53 00000000" 00 9€ Hit 
25 FOCC §=©CF 9E 0000 
AF SS 
> po Bele 
7E 60 3C 00016 
4 AQ OD Bale 
4 AC 0D Q001C 
$¢ 04 F OO E 
5 Oc AC 00 00022 
OF 13 000 8 
1c AS 3 00 
7E 60 3C 00028 
04 AO OD $6 E 
04 AC DD 00031 
62 04 FB 000 
51 10 ac D 38 7 
2A 1 8 
14 AC D 03D 
14 1 04 
0480 8F 14 C B1 0004 
6 1B 0004 
50 40 F 9A 4A 
9 11 of 
50 4 oS ‘ ; 
50 6 C 3 
38 =AS OOF 
50 0D C 
0% Al 5d . 
eo © KR Be 
of HSS 


3; Routine Size: 104 bytes, Routine Base: S$CODE$ + 0492 


1-56 1 
eo- 
15-Sep-1 


_ 
bod 
oe 


~ 
Aa 


Uist Ww 
rer w 


o 
wr 


9B 12:50:08 


AX-11 Bliss-32 V4.0- 


» LONG 8 

-ADDR is 

ASCII \p3" Setter contents\ 
»BLK 


LONG 8 
-ADDRESS P.AAO 
eASCII \P4 buffer contents\ 


-BLKB 


-LONG 18 
»ADDRESS P.AAQ 


-PSECT S$CODES,NOWRT,2 
Poop hyg NMLSDUMP_GIO_BUFS, Save R2,R3 


OV . AAL 
MOVAS Nit SDEBUG _MSG, R2 
MOVL PIDSC, RO” 
BEQL = 1 
USHL R 
MOVZWL (RO), =(SP) 
PUSHL 4 (ROS 
PUSHL BITNUM 
CALLS #4 NAL SDEBUG _MSG 
HOVL Pebst 
PUSHAB oF an 
MOVZWL (RO), =(SP) 
PUSHL  4(ROS 
PUSHL BITNUM 
CALLS #4, NMLSDEBUG_MSG 
MOVL bsc, RI 
BEQL 
TSTL  P3ADR 
BEQL 
CHP P3ADR, #1200 


B 

MOVZBL #64, P4LEN 

MOV ZL @P3ADR, P4LEN 

MOVZWL (R1), P4LEN 
AAP 


ba 
CALLS #4, NMLSDEBUG_MSG 


3509 
NML .SRCINMLBLDMSG.B32; 


L MSG NML_ Network message builder module 4 AX-11 Bliss-32 V4.0-74 

06.000 NMLSLOGALLPDB tos contents of permanent data b 12: b-sep-1964 3: 33 33 NML.SRCINMLBLDMSG.B32; 

; 998 9 § 1 ZSSBTTL "NMLSLOGALLPDB 0g contents of permanent data base files’ 

; 9 1 GLOBAL ROUTINE NALSLOGALL DB : NOVALUE 

: 1000 9 3 1 

:; 1001 9 1 !++ 

: 1008 1444 : FUNCTIONAL DESCRIPTION: 

; 1004 992 1! This routine logs the contents of all permanent data base files 

; 1005 995 1! according to the setting of the logging bits. 

3 1808 994 1! 

; 100 995 1! 

1009 397 2 BEGIN 

; 1910 998 

; 1011 0999 OWN 

: ISt¢ 1000 TAB : VECTOR CNMASC_OPN ~~ fe NMASC_OPN_MIN + 1] 

; 101 1001 INITIAL (DBG$C_DMPNO 

; 1014 1906 DBG$C_D Th ° 

; 1015 100 pBGSe—DRPL IM. 

: 1016 1004 DBGSC_DMPOBJ, 

3 1017 1005 DBGSC_DMPCIR, 

:; 1018 1006 DBGS$C_DMPX X25, 

3 1019 1007 DBGS$C_DMPX 9° 

; 1020 1008 DBGSC_DMPCNF 5; 

: 1961 1009 

; 10 ¢ 1010 INCR IDX FROM NMASC_OPN_MIN TO NMASC_OPN_MAX DO 

; 10 1011 BEGIN 

: 1024 I9t¢ 

H 6 ? + a i IF .NMLSGL_LOGMASK C.TABC.1DX]] THEN 

; 1037 1015 4 IF WMASOPENFILE (.1DX, NMASC_OPN_AC_RO) THEN 

: 1028 1916 5 BEGIN 

; 44 1017 5 NMLSFILEDMP (.TAB C.IDX], .IDX); 

; 1030 1018 5 NMLSCLOSEFILE (.1DX); 

: Ie) 1019 4 END; 

: 10 ¢ 1020 3 END; 

3; 103 1021 2 END; 

3: 1034 156 2 

3; 1035 1025 1 END; ! End of NMLSLOGALLPDB 
-PSECT SOWNS,NOEXE,2 

00000015 00000014 00000013 00000012 00000011 00000010 00100 TAB “PoNe 16 7,w@wweewee MH. 2. 

4 : 7 e e e . e ° e 
00000017 bo0000t8 0118 


-PSECT SCODES,NOWRT,2 
sENTRY NMLSLOGALLPDB, Save R2,R3 


0 
09 CLRL IDX 
1$: MOVAL T F1Dx J, R3 
C BBC (R35) NACSCL -LOGMASK, 2$ 


CLRL 40s = (SPS 


22 000000006 0 £ 
16 PUSHL IDX 


35 00000000° of i 
58 DD 


9967 
1018 


1015 


NALS 
v04- 


VO=BOD” = NALSLSGALLPDB “Log contents of permanent data b 5 te: co-1884 3:88:03 — EAAC!Sa@NALac ome: 85079 Page 43 


_ < 


000000006 09 EB 18 cA Ls aR. NMASOPENF ILE : 
DD é PUSHL 1D : 1017 
63 DD PUSHL  (R3) : 
00000000v 00 08 FB 6 6 CALLS #2, NMLSFILEDMP F 
DD 00020 PUSHL IDX + 1018 
000000006 99 o1 FB 00 F CALLS #1, NML SCL OSEFILE F 
CA 7 Ff 6 2$ AOBLEQ #7. + 101 
04 0003A RET + 102 


; Routine Size: 59 bytes, Routine Base: SCODE$S + O4FA 


L 
04 
a | 
: s 
s 
3 1 
3 1 
a 
s 
3 1 
3 1 
s 1 
3 1 
: 1 
1 

1 

3 1 
. 
31 
s 1 
3 1 
3; 1 
3 1 
2% 
: 1 
. 7 
s ¥ 
s 1 
1 

: 1 
s 1 
1 

3 1 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

3 1 
3 1 
; 9 
1 

1 

3 1 


ane ee ee ee he PO PO PH HH & BP BH B Prt ofl oft ofl aft afl oft ofl of oft oft oft off off off off oft off off ofl oft ofl off off oft oft off ot ofl ot oft odd ot ofl ot old ot dt od 


28 


NML_ Network message builder module 14. 
NMLSFILEDMP Dump all the records in the file 14 


XSBTTL "NMLSFILEDMP Dump all the records i 
GLOBAL ROUTINE NMLSFILEDMP (BITNUM, FID) : 


1+ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
‘ 


Ooo 
Pod 


WAWG 


WN O OCONOULS WN ODDNOUES WN "OOO 


FER 


oO 
= 


DOOCOOOCCOCOCOOOOOOCOOOOO 


oO 
DPREA_QD_AIASISss & BS BB EEE PWN ipoporononorn 


3 


w 
SOWONAMNE WIN OOO NAUES WN OO DONOUE WI OVOONOu 


wn 


SOOCOCCSCOOOCOCOOoOoOoCoOooCoOooOooO 


SSS> 


© 
SOOONOUES WN —OOONOuM 


o 


ts 


oo oo ooocoe So 
Stttatotctot ee te estates 


oooo 
338 
oO 
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Wwnr— 


ee ee ee ee ee ee ec ee a ed ed ed 2d dd od 8 = td Sd 
ee a ee ee ee ee ee ee ee ee ee ed oe ed ed od dd od wd dd 


Be Be Se Se Ge Se Ge Se Se Se Se Be Ge Fe Ge Ge Se Se we Be Se Se Se Se SF Ge Ge Ge Ge Gs Ge Ge Se Se Se Ge Se Se Se Se Se Se SF Sse Se Ge Se Fe Se Se Se Se Sse Sees Sees 


COOoOooooooco]Ke: 


oy NNN 


So 
oO 


p-196¢ 12:30:03 ENML«SRCINALBL OMSG-032;1 
t 
V 


+ 
FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: 


BITNUM Logging flag bit number. 
FID Permanent data base file identification code. 


IMPLICIT INPUTS: 
NMLSGL_LOGMASK Values of current logging flags. 
IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 

NONE 

BEGIN 

LITERAL 
FAOSIZ = 256; ! The print buffer 

LOCAL 
FAOBUF : VECTOR prAgsizZ. BYTE], ! Print buffer 
FAOLST : VECTOR (100), ' List of args to SFAOL 
OUTDSC : DESCRIPTOR, ' Descriptor of the output Line 
SAVEFLAG, ! Temporary file 1/0 logging flag 

WOR uffer 


Temporary record ke 
Record descri , 


KEY 3 
RECDSC : DESCRIPTOR; 
If logging for this file is not enabled then just return. 
Md NOT .NMLSGL_LOGMASK C.BITNUM) 

RETURN; 
Output the header. 


OUTDSC CDSC$W_LEN 
OUTDSC CDSC$A_PO] 


GT 
NT 
NMLSAPPENDTXT FAS 
SC 


ptor 


H) = FAOSIZ; 
ER] = FAOBUF; 


$A 
$A 


eetterererererrreerreeereeeen’) 
file dump *teteeerererenereeeeenerenene’) , 


fp ¢' 
ID ¢" 


Page m 


i) 


S3S333 


WWIII RIPININININININIDN 2 2 SO OO oe ee oO oo 


a a et at ak ek at a et = 4 = 2d 8 2 = a as ss SS YY 


ne ts ts a Ls ns 2 es = os ss ss 2s is Ls 2) 2 ss as a a 


2A 2A 


rd) 
6€ 


k message builder module 15-$ 5 “11 Bliss-32 V4.0-74 


5 
EDMP Dump all the records in the file 12286871382 $3:38:03 ENML. SRE NMLBLDMSG.B32; 


OUTDSC, 
OUTDSC  COSC$W_LENGTH]); 
LIBSPUT_OUTPUT (OUTDSC); 


i Save the vaiue of the file 1/0 logging flag and set it to enable records 
to be logged. 


SAVEFLAG = .NMLSGL_LOGMASK cpeess .FILEION; 
NMLSGL_LOGMASK (CDBGSC_FILEIO] = 1; 


Read all records. 


KEY = 0; ! In 
WHILE NMASREADREC (.FID, KEY, NML$GQ_REC 
BEGIN 
KEY = .KEY + 1; 
END; 
! Output the trailer. 


OUTDSC CDSC$W_LENGTH] = FAOSIZ; 
OUTDSC CDSCSA-POINTER] = FAOBUF; 


NMLSAPPENDTXT (.FID 
$asSCcip ('aeeteeerererertereerteeerere End of’), 
SASCID (‘file dump *tteererrreeeeeeeeeneeenen') | 
OUTDSC, 
OUTDSC CDSCS$W_LENGTH]); 
LIBSPUT_OUTPUT (OUTDSC); 
Restore the setting of the file 1/0 logging flag. 
NMLSGL_LOGMASK CDBGSC_FILEIO] = .SAVEFLAG; 


END; ! End of NMLSFILEDMP 


-PSECT SPLITS,NOWRT,NOEXE,2 


3h 3h - = 3h 3h sh - - 10C P.AAS: ASCII \ereeneeeeeeneereeeeeerereeene\ 
A 2A 2A 2A 2A 2A 2A 2A 2A 18 
00001 13¢ P.AAR: “LONG, 29 
3 090006" 1 " eADDRESS P.AAS 
70 60 75 64 20 65 6C€ 6 134 P.AAU: ASCII] \file dump tttreeeeereneeeneeeeeeereerer\ 
A 2A 3h A 2A 2A 2A 2A 2A 133 
A 2A 2A 2A 2A 2A 2A 2A 2A 135 — 
68 000 7 15C P.AAT: .LONG 9 
* 001 ADDRESS P.AAU 
gh gh A sh 3h sh sh A 2A 164 P.AAW: ASCII] \steneeneeeeneeneeneeneetee End of\ 
A 2A 2A 2A 2A 2A 2A 2A 2A 173 


2crm2au— 


© 


NML_ Network message builder module 


66 6F 20 
SH) 
HEERRRRERERE REE 


btn 
00 00000 


007¢ 

g 444454 0 9 

0 4 Vv 00 9€ 

4 00 44 0G ; 9E 

3 0000 i 9E 

E FOSC «CE OSE 

73 64 Be AC 1 

OC AE 0100 8F +4 

. 10 «AE FFOO §86CD OE 
OC AE 9F 

10 AE OF 

53 DD 

DO AS OF 

08 ag DD 

65 05 FB 

OC AE 9F 

66 8 FB 

52 64 01 1 He 

64 02 88 

6E Be 

04 Af F 

000000006 00 9F 

AE 9F 

AC 0D 

000000006 00 4 4 
04 O€ 

6— B86 

3 11 

OC AE 0100 F B60 

10 AE FFOO §8CD OE 

AE 9F 

AE 9F 

A of 

. «6 F 

8 ac OD 

65 05 FB 

4 oc ag 4 

64 01 ot 2 FO 

04 


; Routine Size: 156 bytes, Routine Base: S$CODE$ + 0535 


NMLSFILEDMP Dump all the records in the file 


be i) a 
* 


SASLEMBUM SSNS 


—MOuv1wmoW ovr 


oO 


BRASS S Bromma 


oo 


5 
~3Sp- 1882 §3:38: 
.BLKB 
comet 
P.AAY: ASCII 


P.AAX: .LONG 
ADDRESS 


28: MOVW 
a!) 


33 wet) Bliss-32 V4.0-74 
NML.SRCJNMLELDMSG.B32; 


3 
P. AAW 
\file 


36 
P.AAY 


SCODES ,NOWRT,2 

NMLSFILEDMP, Save R2,R3,R4,R5,R6 
LIBSPUT OUTPUT, R6 
NMLSAPPENDTXT, R5 
NMLS$GL_LOGMASK, R4 

P.AA 

-676(§P), SP 

BITNUM, NMLSGL_LOGMASK, 3$ 
#256, OUTDS 

FAOBUF, OUTDSC+4 

OUTDSC 

OUTDSC 

R 

P.AAR 

FID 

a NMLSAPPENDTXT 

#1, LIBSPUT_OUTPUT 


» #1, NMLSGL_LOGMASK, SAVEFLAG 
ee NMLSGL_LOGMASK 


RECDSC 
NML$GQ_RECBFDSC 
KEY 


FID 
#4, NMASREADREC 
RO, 2$ 


1 

#256, OUTDSC 
FAOBUF, OUTDSC+4 
OUTDSC 


P. 
A NMLSAPPENDTXT 
nt 


#1, LIBSPUT OUTPUT 
SAVEFLAG, #T, #1, NMLSGL_LOGMASK 


dump *terereeeeereereerereeeres\ 


Page 39 
. (14) 


1025 


=333-323= 
—OONUIF Wo 


mt ot tt 
— 
Ww 


—— a HI IOO 


— 


PeSe Se Se Se Se Se Ge Se Ge Ge Ge Se Se Ge Ge Fe Se Ge Se Ge Se Se Se Fe Se Ge Se Fe Fe Se Fe Se Se Se Se Se Se Be Be 
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y 


VOLSOOO «= sCNALSFICEDMP "Sumeostt the records in the file ibose 305-1882 93:88:33 EAM SrEdwacacomeeso30+4 Page 449 


a a a a a ee dd 
a a ae De a a ee ee ee a a ed dd dd 
=O OONOA VE WN (OOD NA MVE WN $ O OONO NEW OO OODNOU SW" O0OW uw 


NML Network message builder module 15-3 e0-19 a8 oe $3: 28:36 AX-11 Bliss-32 V4.0-74 


NMLSFILEDMP Dump all the records in the file NML.. SRCINMLBLOMSG.B32; 
1120 1 

1121 1 ZSBTTL "NMLSLOGFILEOP Log a file o opers atio 

1} ¢ : GLOBAL ROUTINE NMLSLOGFILEOP (BITNUM, Teo, TXTDSC) : NOVALUE = 
1124 1 !44 

1} 5 ! FUNCTIONAL DESCRIPTION: 

1% 5 : This routine logs file operations such as open and close. 
1; : : FORMAL PARAMETERS: 

1131 1 i BITNUM Logging flag bit number. 

11 § ii pabeie ue of the fileid parameter (NMASC_OPN_xxxx) 
1 Z ! TXTDSC Descriptor of message text. 

1 5 : IMPLICIT INPUTS: 

8 lie 

a : IMPLICIT OUTPUTS: 

18 Elba 

1108 1 ! ROUTINE VALUE: 

1144 1 ' COMPLETION CODES: 

11445 1! 

Ht ilo 

118 : SIDE EFFECTS: 

1150 1 NONE 

1151 1! 

3g ff 

1322 BEGIN 

1338 LOCAL 

115 OUTBUF : VECTOR (255, BYTE), 

1138 OUTDSC : DESCRIPTOR; 

1160 OUTDSC CDSCS$W_LENGTH) = 255; 

133) OUTDSC CDSCSA_POINTER) = ouTBuF ; 

1168 NMLSAPPENDTXT (.FILEID, 0, .TXTDSC, OUTDSC, OUTDSC CDSC$W_LENGTH]); 
1165 NMLSDEBUG_TXT (.B1TNUM, 

1196 OUTDSC); 

116 END; 


0000 -ENTRY NMLSLOGFILEOP, Save nothing 
5E FEFB ce E MOVAB 33 4(SP), SP 
6E FF F MOV7BW #255, OUTDSC 
04 AE 08 AE 9E MOVAB OUTBUF, OUTDSC+4 


NMLSBLDMSG NML Network message builder module 
v04-000 NMLSLOGFILEOP Log a file operation 


5E 0D 

Se AE 9F 

C ac 0D 

7E 04 

08 ac OD 

00000000v 00 9 FB 
E 00 

04 AC OD 

FC2E =sCF 02 FB 

04 


; Routine Size: 47 bytes, Routine Base: SCODE$S + 0501 


CoOoCoooooooo 


seen? r 


54 AX-11 Bliss-32 V4.0-742 
:03 NML . SRCINMLBLDMSG.B32;1 
SP 


~ 
~ x 
nw 


a D 
+2 NMLSAPPENDTXT 


81 TNuM 
#2, NMLSDEBUG_TXT 


Page 42 


(15) 
1163 


1165 


1167 


38 
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ee ee ee ee ee ee ee oe oe ee ee ee ee ee ee ee ee ee ee 


Ooo 
wn 


COCS COCO OOOO INI INI OO 


SELESRANLS SELLER 


oonoonovovnnd 


cc at at tt ot a a os as a a as 1 a a 1 a a a 


oOo 


wr 


ed ed ed ed ed ed 
Oo 


DONO NEW OOO NOUE WN O DONOUS WN 
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ar 
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—_ caeace e 
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5 
work anes*epe builder module “Se 
RECORDOP Log a record access operation e 


1 
1 
ZSBTTL "NMLSLOGRECORDOP Log a record acc 
GLOBAL ROUTIN® NMLSLOGRECOR op (BITNUM, F 


'e+ 
3 FUNCTIONAL DESCRIPTION: 


S-sep-1964 25:58:54 Axed Bt isscs2 v4.0-74 
ess op 
ILE 5° 


erati 


on’ 
1D, TXTDSC, DATDSC) : NOVALUE = 


This routine logs record access operations such as read, write, 
and delete. 


{FORMAL PARAMETERS: 
pir NUM Logging flag bit number. 
FILEID alue of the fileid parameter (NMASC_OPN_xxxx). 
TXTOSC Soseetntad of message text. 
DATDSC Descriptor of record data. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 


p reer ie CODES: 
NONE 

i SIDE EFFECTS: 
NONE 


BEGIN 


P 
DATDSC : REF DESCRIPTOR; 
LOCAL 
OUTBUF : VECTOR (255, SYTEJ, 
' OUTDSC : DESCRIPTOR; 
Initialize output buffer descriptor. 


OUTDSC [DSC$W_LENGTH) = 255; 
OUTDSC *DSCSA-POINTER) = OUTBUF; 


Append the file type to the message text. 
NMLSAPPENDTXT (.FILEID, 0, .TXTDSC, OUTDSC, OUTDSC CDSC$W_LENGTH)); 
Log the data. 


NMLSDEBUG_MSG (.B1TNUM, 
-DATDSC COSCSA_POINTER], 


<= 
23 


ee a ee ee eee ee ee ee ee ee 


a oe ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 


wh SEL DASG NML Network message builder module 15-Sep-1984 $3: 28: 33 AX-11 Bliss-32 V4.0-74 Page 44 


NMLSLOGRECORDOP Log a record access operation 14-Sep-1 NML.SRCINMLBLDMSG.E32; (16) 
: 1240 1225 -DATDSC CDSCSW_LENGTH), 
; ae Hi ; OUTDSC); ei 
: 124 1 
: 124 1228 END; 


0000 0 .ENTRY NMLSLOGRECORDOP, Save nothing : 1169 

SE FEF8 9€ 0000 MOVAB -264(SP), SP : 
6E FF «6OBF OB MOV7BW #255, OUTDSC + 1214 
04 AE 08 AE 9€ OVAB OUTBUF, OUTDSC+4 + 1215 
SE DD 0001 PUSHL SP + 1219 

04 AE 9F 0001 PUSHAB OUTDSC : 

0C AC DD 0001 PUSHL  TXTDSC : 

7E D4 00018 LRL. = (SP) : 

08 at DD OO01A PUSHL pILEID ; 

00000000v 00 FB 0001D CALLS #5, NMLSAPPENDTXT : 
E DD 00024 PUSHL : 1223 
0 10 AC 00 00026 MOVL DA TDSC, RO + 1225 

E 60 3C O002A MOVZWL (RO), -(SP) : 
04 AO DD 00020 PUSHL 4 (ROS + 1224 
04 AC DD 000 0 PUSHL BITNUM + 1223 

FC33—sCF 04 FB 0003 CALLS #4, NMLSDEBUG_MSG ; 
04 00038 RET + 1228 


; Routine Size: 57 bytes, Routine Base: $CODE$S + 0600 
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ork message builder module 1b.s2 -1984 23:58: AX-11 Bliss-32 V4.0-74 P 45 
NDTXT Append file type to string 12-808-1 38 $3:85:38 ENAL . SRE NMLBLDMSG.B32; 29e 47) 


ZSBITL ‘NMLSAPPENDTXT Append file type to string’ 
GLOBAL ROUTINE NMLSAPPENDITXT (FILEID, PFXDSC, SFXDSC, OUTDSC, RESLEN) : NOVALUE = 


1+ 


+ 
FUNCTIONAL DESCRIPTION: 


This routine appends the file type string to the beginning of a 
text string. 


i 
i 
i 
FORMAL PARAMETERS: 
i FILEID Value of the fileid parameter (NMASC_OPN_xxxx) 
: PFXDSC Descriptor of prefix text. 
! SFXDSC Descriptor of suffix text. 
: OUTDSC Descriptor of output string buffer. 
RESLEN Length of resulting appended string. 
IMPLICIT INPUTS: 
; NONE 
IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
= 
BEGIN 
MAP 
PFXDSC : REF DESCRIPTOR, 
SFXDSC : REF DESCRIPTOR, 
TOSC : REF DESCRIPTOR; 


CAL 
CTLDSC : REF DESCRIPTOR, 
FAOLST : VECTOR (6), 
TYPDSC : REF DESCRIPTOR; 
! Select file type string. 
CASE FILEID FROM NMASC_OPN_MIN TO NMASC_OPN_MAX OF 
NMASC_OPN_NODE): 
TYPDSC7= SASCID ("Node"); 


CNMASC OPN. LINES: 
TYPDSC™= SASCID ("Line"); 


QEARANLSSSGS 


OOODOO0O0O 


Se 


NML Network message builder module 
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CNMASC OPN.LO 


J: 
TYPDSC SASCID 


CNMASC_OPN_X29): 
TYPDSC™= 

CNMASC_OPN_CNFJ: 

ywepsc = SASCID 


R 
OUTRANGE) 


13-5 
14-$ 
("Logging’); 
("Object"); 
("Circuit'); 
("X25 Module"); 
("X29 Module’); 
("Configurator Module’); 


(*Unknown'); 


AX-11 Bliss-32 V4.0- 


5 
oPr188s $2:86;08 — EAML SREdWAcBcomtc: 93 


Pa 46 
947) 


] 


TYPDSC = $ASCID 
ES; 


! Set up FAO parameters. 
"10K = 0; 
IF .PFXDSC NEQA 0 


THEN 
BEGIN 


SOONOVUESWN —“OOONOULS WN OOM 


we ee at ah a ete Nabe ae ey et 
NOUS wt — S33 


OQ > ar 


-SFXDS 
EN 

BEGIN 

FAOLST f 

I 


&Pruw 
FUN — OS OONAUNLS WN" OOONOUE WN 
wn 
> 
o 
cr 
nn 
“~ 


DWDONOULWN—OOW 


WANA AAA WI 


FAOLST 


END; 
i tou GTR 4 
ELS CTLDSC = SASCID ("!AD !AD !AD") 
CTLDSC = SASCID (*!AD !AD"); 
Append the name to the beginning of the text string. 
SFAOL (CTRSTR = .CTLDSC, 
OUTLEN 


= 

= .RESLEN, 
OUTBUF = ,OUTDSC, 
PRMLST = FAOLST); 
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NAL MSG NML Network message builder module 18-5 -1984 23:58: AX-11 Bliss-32 V4.0-74 P 7 
yaa sd NMLSAPPENDTXT. Append file type to string Feet ET oe RTE TET age 13) 04: 
: 1359 1343 s | 
; 1360 13ee f END; | 
.PSECT SPLITS,NOWRT ,NOEXE ,2 4 
65 64, GF KE QOIBC P.ABA: ASCII \Node\ : . 
88 20000" aie a TADDRESS PABA : . | 
65 6E a6 1¢8 BAB: “ASCII Line\ ; : 
itd 156 tee eo tess Pp. ABC : Se 
67 6E 69 67 67 6F 4C 104 P. ABE “ASCII \Logging\ : ; | 
90000007 1p¢ P.ABD: .LONG 7 ; s | 
7% 63 65 6A 62 4F 1E4 P.ABG “ASCII \Object\ : 3 
0000000 TEC P.ABF: LONG ; 3 | 
00090006 1F “ADDRESS P.ABG : 5; | 
7% 69 75 63 72 69 4 164 P.ABI “ASCII \circuit\ : ; | 
90000007, OOIEC P.ABH -LONG 7 ; 4 
0 90 00" 0 “ADDRESS P.ABI : te 
65 6C 75 64 6F 4D 20 35 0 04 P.ABK ASCII x25 Module\ ; 2 
SHH ETD oats aR sh ay ! ' 
65 6C 75 66 6F 4D 20 39°32 58 ° 18 P.ABR “ASCII \X29 Module\ ; 3 
000000A 00224 P.ABL: ‘LONG 10 ; a 
0000009" 0228 “ADDRESS P.ABM : : 
6F 4D 20 72 6F 74 61 72 75 67 69 66 6E gf 4 S C P.ABO: .ASCII \Configurator Module\ 5 s 
65 6C 75 64 : 3 
023F -BLKB 1 > 
00000013 00240 P.ABN: LONG 19 : i 
0090009 * 00244 "ADDRESS P.ABO : Pa 
6E 77 6F 6E 68 6E 0 48 P.ABQ “ASCII \unknown\ ; i 
900000 7 O P.ABP: ‘LONG 7 : ae 
00000 0° 4 “ADDRESS P.ABQ : > 
haunnannne a 8 P.ABS “ASCII AD 'AD !AD\ : , | 
20088098 P.ABR: :LONG 11 : 7 
000' “ADDRESS P.ABS : 3 
44 41 21 20 44 41 21 : ¢ P. ABU: “ASCII \:AD 'AD\ : i 
00007 74 P.ABT: :LONG 7 : : 
itditt 6 78 "ADDRESS P.ABU : 2 

.PSECT SCODE$,NOWRT,2 ; 

; 1230 3 


00pe 
53 00000000" 00 9€ 


-ENTRY pt, SAP PEO TET. Save R2,R3 


MOVAB P.ABP 


i 


AX-11 Oh leeere V4.0-74 
SRCINMLBLDMSG.B32; 
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sa 
Sep=1 
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a ~~ - F- F-e  F-e  YFeOlUlUG PrerlU rmhUC(C rmUC<i EC PHC KS —_— «& Oct _—_- -— “ 
a steepeeues '-— _ KUYWM we MS ” 
MQ -ses 888 8 ba ° ba be ° bg bg ° - ww saMAaY OR © >. Vveau> 
—ARARAAARHAQA ~ a ew = 72 a2 2 ® m= 20=—wH ane =e —- MUMM 
wTeut ttt tt t tM MHEH-SEM CHIH AHSOHS KKH SH OO Ke SE KH —wW * 
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RET 


FTF TFT TMNMMNMANNOD DORK OOO 
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de he We We he We We We WF OOMVOO VOOCOMVOOK Mw WOOooOy 
BeOnr One On Or On One Oe COSK—MABQMOVAK—MOAVAK—On—-OOCO8kuO 
POMP MCP GP OPMIOM LPN FTPMO 2 Oe EK NINN VO KNO OMT MWwOVUOy, 
OMVMUNEe ade ee COCO ANCOO COO CO LOW Comoe <zoan<caeno 
oO w vuovwvoevwsedbeysseoeoe Fs Sov wf rw ov 
~ ~ @©Ooeoedckvweweae' oseesbesoc&cF: © - Nee 
—“ wm 
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NUNUE NNN NNN ON eK WWHIOOCOCOR-:)6| 6 6hCOCOCOOLYTr CUCU f—] 
wowenwmewnwn wm MW WH MH Odnwsrm wTmo wm Ww oS 
wu uous 
oct oct _ 
3 3 3 Ss 
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oS 
So 
oS 
i=) 
oOo 


170 bytes, Routine Base: S$CODE$ + 0639 


3; Routine Size: 
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we 5 
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v04-" NMLSTRNLGGNUM Translate numeric logical name 14-Sep-1984 12:50: NML.SRCINMLBLDMS: . 832; (18) 

71 1345 1 Logi H 
; : 1 ig } GLOBAL ROUTINE NMLSTRNLOGNUM (LNMDSC, RESADR) = : 
71 1348 1 !+¢ ; 
; } i a3 ! FUNCTIONAL DESCRIPTION: : 
:1 1351 1! This routine translates a pogical, name and returns the numeric : 
; ! } § } representation of the ASCII hexadecimal number that results. ; 
i] 1394 1 | FORMAL PARAMETERS: ; 
71 1 § 74 LNMDS Descriptor of the Logical name to be translated. ; 
5 : : ! RESADR Address of longword to contain the numeric value. : 
; | 1 53 { IMPLICIT INPUTS: 3 
i] 136) 1 | NONE ; 
3 ! 8 i { IMPLICIT OUTPUTS: 3 
i] 136 1; NONE ; 
71 1367 | i ROUTINE VALUE: ; 
; : 1398 : COMPLETION CODES: . 
31 139 1/ Returns error code if the logical name has no translation or the ; 
3 ; 13% } translation is invalid. The result longword will be set to zero. : 
i 1390 1378 | | SIDE EFFECTS: : 
71 1375 1 NONE ; 
3 1 1 7g 1! : 
3 1394 1377 1 !-- : 
; 1395 1378 1 ; 
3 1396 1379 BEGIN : 
nt ! 
; 1399 138¢ LNMDSC : DESCRIPTOR; ; 
on ee : 
; 1408 1385 ASCLEN : WORD ; 
; 140 1386 ASCNUM : VECTOR (8, BYTE); ; 
: 1208 1 LOCAL : 
: 1406 89 STATUS; ; 
: 1408 Pp 1391 STATUS = S$TRNLNM (ATTR = UPLIT (LNMSM_CASE BLIND) F 
: 1409 B 139¢ TABNAM = ZASCID 'LNASPROCESS_TABLE', ; 
3 1410 P 139 LOGNAM = .LNMDSC, ; 
3 1411 P 1394 ITMLST = UPLIT (WORD (8), WORD (LiSMS_STRING), ; 
: 1418 P 1395 LONG (ASCNUM) , 3 
3 141 P 1 38 LONG (ASCLEN), : 
3 1414 P 139 LONG (0)) : 
. ae , : 
; 1219 1400 IF .STATUS EQL SS$_NORMAL ; 
: 1418 1401 THEN : 

} 


NMLSBLDMSG 
vOs=060 


> 141 
$1630 
; 1421 
; 14 


42 41 54 5F 


; Routine Size: 


3 1424 
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fPoseontoge 28:58:54 


AX-11 Bliss-32 Yh Darhe 
NML .SRCJNMLBLDMSG.B32; 


STATUS = LIBSCVT_HTB (.ASCLEN, ASCNUM, .RESADR); 


RETURN .STATUS 
END; 


53 53 45 43 4F 52 50 
00 


58 bytes, 


1407 


1 


52 00000000° 


000000006 00 
01 


43 0 
000000006 0 


Routine Base: 


0004 


04 
F8 
E0 


WOOO NOVMINOMMGS 


Oooor-UlOP FO NMOS 


ONMNWOS -9O TOOT TT OO 


FDOornonr—-Oa ro fom 


SCODES + 06E3 


! End of NMLSTRNLOGNUM 


«PSECT S$PLITS,NOWRT ,NOEXE ,2 


C P.ABV: .LONG 33554432 
4 P.ABX: .ASCII \LNMSPROCESS_TABLE\<0><0><0> 
, 


P.ABW: .LONG 17694737 
8 -ADDRESS P.ABX 
C P.ABY: .WORD § 
3 » WORD 
»ADDRESS ASCNUM 
4 »ADDRESS ASCLEN 
8 -LONG 0 


O ASCLEN: .BLKB 
; ASCNUM: .BLKB 
.EXTRN SYSSTRNLNM 
-PSECT $CODES,NOWRT,2 


0000 .ENTRY NMLSTRNLOGNUM, Save R2 
000¢ MOVAB P.ABY, R2 
00 PUSHL 
00B CLRL. = (SP) 
000 PUSHL LNMDSC 
001 PUSHAB P.ABW 
001 PUSHAB P.ABV 
0016 CALLS #5, SYSSTRNLNM 
01 CMPL TATUS, #1 
BNEG 

0 PUSHL RESADR 
0 PUSHAB ASCNUM 
0 MOVZWL ASCLEN -(SP) 

| CALLS #3, LIBSCVT_HTB 
6039 1$: RET 


roe 


Pe Se Se Se Ge Se Se Ge Se Se 


1346 
1398 


1400 
1402 


1406 


1298 1 END 
14 
14 ELUDOM 


PSECT SUMMARY 
Bytes 


"So No om C.NOWRT, 
VEC WRT, 
NOVEC eNOWRT, 


Library Statistics 


ymbols 
Total Loaded 


San At 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLBLDMSG/0BJ=0BJ$:NMLBLDMSG MSRCS$:NMLBLDMSG/UPDATE=(ENHS: NMLBLDMSG) 


1411 0 
1821 code + 984 data bytes 


Elapsed Time: 1:27.0 
Lines/CPU Min: $¢ 1 
ema Ae ade 1 


157 pages 


meet hess Complete 


RD sno 


COGNUR’ Tr ons as mmar Stesteak name 18-se =$0071 383 $3:38:38 YNML SRESNALBE SMSC o30¢4 Page 43) 


! End of module 


~-EXTRN LIBSSIGNAL 


Attributes 
ME,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
XE,NOSHR, LCL, Rel CON, NOPIC,ALIGN(2) 
eNOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
coece ee Pages Processing 
“Percent Mapped Time 
14 27 :00.1 
1 47 00:00-¢ 
0 581 00:02.1 


3 
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